subroutine test(A,B,C)
    real, intent(inout) ::A(5,1),B(1)
    real, intent(out) ::C(5,1)
    A(5,2)=10.0
    B(1)=0.0
endsubroutine

PROGRAM main
    real A(5,5)
    real B(2),C(5,2)
    A=0.0
    call test(A,B,C)
endprogram
